Profile of (eval 163)[CGI/Compile.pm:12]

Filename	(eval 163)[/usr/share/perl5/CGI/Compile.pm:12]
Statements	Executed 15 statements in 466µs
Eval Invoked At	/usr/share/perl5/CGI/Compile.pm line 12

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	93µs	138µs	CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1	1	400ns			package CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;
2	14	466µs	5	270µs	# spent 138µs (93+46) within CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 which was called: # once (93µs+46µs) by CGI::Compile::_eval at line 2 CGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, '<', \$data;}local @SIG{keys %SIG} = do { no warnings 'uninitialized'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] }; # spent 138µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::BEGIN@2 # spent 50µs making 1 call to File::pushd::pushd # spent 46µs making 1 call to warnings::unimport # spent 18µs making 1 call to CGI::initialize_globals # spent 18µs making 1 call to CGI::Compile::ROOT::home_vagrant_kohaclone_plack_2epl::CORE:open
3					#line 1 /home/vagrant/kohaclone/plack.pl
4					#!/usr/bin/perl
5
6					use Modern::Perl;
7					use CGI;
8					use C4::Output;
9					use Koha::Libraries;
10					for ( 1 .. 1000 ) {
11					for my $l (qw(CPL MPL IPT )) {
12					Koha::Libraries->find($l)->branchname;
13					}
14					}
15
16					my $query = CGI->new;
17					print $query->header({
18					type => 'text/html',
19					status => '200 OK',
20					charset => 'UTF-8',
21					Pragma => 'no-cache',
22					});
23					print "<html><body>Hello</body></html>";
24
25					#my $cookie = undef;
26					#output_html_with_http_headers $query, $cookie, "<html><body>Hello</body></html>";
27
28					};
29					my $self = shift;
30					my $exit_val = unpack('C', pack('C', sprintf('%.0f', $rv)));
31					if ($@) {
32					die $@ unless (
33					ref($@) eq 'ARRAY' and
34					$@->[0] eq "EXIT\n"
35					);
36					my $exit_param = unpack('C', pack('C', sprintf('%.0f', $@->[1])));
37
38					if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {
39					die "exited nonzero: $exit_param";
40					}
41
42					$exit_val = $exit_param;
43					}
44
45					return $exit_val;
46					};
47					;